perm filename FOURMV.PNT[PNT,HE] blob sn#560563 filedate 1981-02-05 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	VAL("ED MV",WAIT)
C00003 ENDMK
CāŠ—;
VAL("ED MV",WAIT);
VAL("DRIVE 1,-30,100",WAIT);
VAL("DRIVE 1,30,100",WAIT);
VAL("E")

DEFINE FOURMOVE=āŠ‚
	MOVE BARM TO BPARK VIA BPARK+10*XHAT WITH DURATION=5;
	MOVE YARM TO YPARK VIA YPARK+10*XHAT WITH DURATION=5;
	MOVE GARM TO GPARK VIA GPARK-10*ZHAT WITH DURATION=5;
	VAL("EX MV",NOWAIT);
	āŠƒ;